(create-fontset-from-fontset-spec): Give correct arg to `error'.

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 1d53cad219b37054c046a61d31c4635a6a9a75c9..697ad1508cbad60cdd0b751e6388329c48a6b8ec 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -473,7 +473,7 @@ It returns a name of the created fontset."
        fontlist full-fontlist ascii-font resolved-ascii-font charset)
     (if (query-fontset name)
        (or noerror 
-           (error "Fontset \"%s\" already exists"))
+           (error "Fontset \"%s\" already exists" name))
       ;; At first, extract pairs of charset and fontname from FONTSET-SPEC.
       (while (string-match "[, \t\n]*\\([^:]+\\):\\([^,]+\\)" fontset-spec idx)
        (setq idx (match-end 0))